home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1066 < prev    next >
Encoding:
Text File  |  1994-01-25  |  1.3 KB  |  58 lines
  1. /extrude
  2. { 
  3. /chg xdf /deltay xdf /deltax xdf 
  4. /tc1 xdf storerect /tc2 xdf
  5. /factor .95 def
  6. newpath
  7. tc1 length 2 eq 
  8. {/tc1 tc1 spottoprocess def} if 
  9. tc2 length 2 eq 
  10. {/tc2 tc2 spottoprocess def} if 
  11. /cnt todraw def 
  12. /ts 
  13. {gsave currentpoint pop /xstart xdf blockxoff wordxoff add yoff 
  14. rmoveto scalef dup scale right left sub 2 div xstart left sub sub
  15. neg curtextheight 2 div neg rmoveto awidthshow grestore}def
  16. 1 1 todraw div neg 0
  17. { 
  18.  dup .02 le{pop 0}if /frac xdf 
  19.  gsave 
  20.  
  21.  0 1 3
  22.  {
  23. bc4 exch 
  24. tc1 1 index get 
  25. tc2 2 index get 
  26. 1 index sub 
  27. frac mul add put 
  28.  }for 
  29.  bc4 vc 
  30.  dup exec 
  31.  cnt 1 ne{grestore}if  
  32.  /cnt cnt 1 sub def  
  33. } for 
  34. /ts{gsave awidthshow grestore}def 
  35. tc1 vc dup exec tc2 vc 
  36. curtextheight .005 mul setlinewidth
  37. /ts {{false charpath stroke}ta} def exec 
  38. grestore
  39. }bdf
  40. /blockxoff 
  41. {right left sub 2 div currentpoint pop left sub sub}def 
  42. /yoff 
  43. {curtextheight 2 div deltay todraw div cnt mul add}def
  44.  
  45. /wordxoff 
  46. {deltax todraw div cnt mul}def
  47. /todraw 
  48. { deltax dup mul deltay dup mul add sqrt factor mul
  49. 100 chg sub abs factor mul add 
  50. dup 0 le{pop 1}{round}ifelse} def
  51. /scalef 
  52. {100 chg sub abs 100 div todraw div cnt mul
  53.  chg 100 ge{1 add}{1 exch sub}ifelse}def
  54. /spottoprocess
  55. {aload pop spots exch get aload pop pop pop 
  56. 0 1 3{pop 4 index mul 4 -1 roll}for 
  57. 4 array astore exch pop}bdf